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FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


**F ILE**1D**FORWRITIO 


“oe — 


Sk Os Og ag Og Og Bg Og Og Og Od OG 
et Od ag Og Og Og Og nd Ot Ot OO Oe 
——— — 
—— —— 


ne ee ed ee 
nn ee ee ee ee eo 


mae Calan 
ones = 
Sk kg Os ad Od Od Od Og Od Od Od OG 
Sk dk ad Os Od Ok ad Od Od Od Oe 


il 
ei 
‘oiled 
‘ei al 
‘edb 
{al 
ed 
‘old 
eis) 


3 


8888888888 


8888888888 


oe 
os 


LELLLLLLLL 
LLLLLLLLLL 


- entry point for FORTRAN WRITE hte RnaL 16-SEP-1984 00:05:28 VAX/VMS Macro v04-00 Page 0 


ann 
<o 


€_10 

Tontents 
e8 wiste ; Detailed Current Edit History 
1 PORS ELARAT Ons 10 = WRITE INTERNAL OBJECT-FORMATTED 


F 
F 
F 
F 
F 
F 
F 
F 
I 


wooooeeseo 


m 8 
FORSWRITE_10 = entry point for FORTRAN WRITE INTERNAL 16-SEP-1984 00:05:28 YAX/VMS Macro V04-00 P 1 
et Ae g-Sep=19 4 99 :93:6e FORRTL.SREJFORWRITIO.MAR; 1 sy (1) 


-TITLE FORSURITE 10 ° engry point for FORTRAN WRITE INT ~~ OBJECT-FORMATT 
IDENT /1-013/ File: FORWRITIO.MAR Edit: JAWI0 


SRAAARAAAAEAAAEAAATAAAAAAAAAAAAAAAAAAAAAAAERAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


TH OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
° ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Pp 


ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® 
TRANSFERRED. : 
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® 
® 
® 
® 
® 
® 
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® 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepokat ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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$e 
FACILITY: FORTRAN Support Library - user callable 
ABSTRACT: 


This module contains the entry point for the FORTRAN 

WRITE INTERNAL OBJECT-FORMATTED 1/0 statement. It is simply 
a call to FORSS$IO_BEG with bits in RO which describe the 
parameter list. FORSS$IO_BEG interprets the parameters. 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


SSSOOOCSCSSOSSOOSSSOSOSOSSOSOSOSOSOSOSOSOOSOSOSOOOSOSOOOOOSOSOSoOO 


COSOOOCOOSOSOOOOOSOSOSOSOSOSOSOSSOOSOSOOSOOOOSOOOOSOSoOS 


SSSSsssss 
SoOoooooooooSo 


. TRANSFER FORSWRITE_10 
. MASK FORS$SIO_BEG 
BRWwW FORSWRITE_10+2 


SSSsSsSsssssssssssssssssssssss 


This puts the correct mask in entry vector, that is FORSSIO_BEG entry mask. 
Furthermore this module must only use RO and R 
since any other register might not be in the entry mask for FORS$I0_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
T. Hastings, 29-July-78 


SOOCOCSSOSOOOSOCOOSOSOSSSOSOSOSSSOSOOSOCCOOOOCOOOOCOOOOOCOOOOOOOOOO 
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-SBTTL HISTORY ; Detailed Current Edit History 


43 
ae 


NO 


Edit History for Version 1 


Add comment shout vectors. TNH 23-June-78 
Pass arg in RO, not ROR, add comments. TNH 29-July-78 
Upeate version number and copyright notice. JBS 16-NOV-7 
Change statement type symbols to be LUBSK... JBS 07-DEC- H 
Change statement type faee s to be " $K..._ JBS 11-DEC-7 
Add “"' to the PSECT directive. JBS 22-DEC-7 
Add FORSREAD_KF, FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
FORSREAD_IF,~FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD KY FORSREWRITE_SU, 
SBL e-Ray- $79 
1-006 - Resove all entry polots that need object time formatting, 
utt ng them in ORS NT EY LOPS so that we can arrange to 
Psat 13 compiler only when it is needed. 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
for it and F ie th BEG $8 see how much 1/0 initiation time 
improves. JBS 02-JUL-1979 
1-008 = Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
1-009 = Remove all entry points and add FORSWRITE_10; each entry 
point gets its own module do we can selectively load 
the necessary UDF and REC modules. JBS 09-JUL-1979 
Correct a typo that caused a data truncation error. JBS 10-JUL-1979 
New parameter format for FORS$$I0_BEG. SBL 5-Dec-197 
Change BRW FORS$IO_ BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
Correct typos in the EXTRN statements which caused FORSSUDF_RF 
rather than FORSSUDF_WF to be loaded. JAW 22-SEP-1981 


SN NSNNN NA AOAAAAAOOOIIUM 
NAME WO OOO US WhO OM 
seeeveene 
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‘ »SBTTL DECLARATIONS 
; INCLUDE FILES: 


SFORPAR 3; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols 


> EXTERNAL SYMBOLS: 


-DSABL GBL ; Declare all external symbols 
-EXTRN FORSSIO_BEG ; common 1/0 statement processing 


g¢ 

3; The pega tg references are to make sure the necessary UDF and REC 
; modules are loaded. These are the routines which are called through 
3; the dispatch tables in FORSSDISPAT. 


.EXTRN FORSSUDF_WFO, FORSSUDF_WF1, FORSSUDF_wF9 
-EXTRN FORSSRECWIFO, FORSSREC_WIF1, FORSSREC_WIF9 


s@ 
; The following reference makes sure the format compiler is loaded. 


oo 


-EXTRN FORSSFMT_COMPIL 


COoOoOOoCooooooSo 
Soooooooo 


SOOO OCOSOSOSPGSOSCSOOOSOCOCOOCOCOoOOoSoO 


: MACROS: 
; NONE 
: PSECT DECLARATIONS: 


0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 


: EQUATED SYMBOLS: 


+ OWN STORAGE: 


; NONE 
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SOSDOSDDOOS9S SDSOOOOSOOOOOOOOOOS0O 
ee ee ee ee ee ee me el cl ee cee el ee ee ee el ee ee ee a ee ee ee ee ee 
WANNA POPONOPONUNONUNNY > 4 = BQO OOOO 0 000.0.00.00000-.0.0@00 
PWN O OOBNOA NEWS ODA NEW O O08 NOADNE WIN O OO NOU EWP. 
. 
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et FORSWRITE_10 = WRITE INTERNAL OBJECT-FO g- ats 7 99:83:6¢ YPORRTL. SREIFORWRITIO.MAR; 1 . (4) | 
‘ -SBTTL FORSWRITE_IO = WRITE INTERNAL OBJECT-FORMATTED 

+4 

3 ; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN 1/0 system 
a WRITE INTERNAL OBJECT=FORMATTED 


CALLING SEQUENCE: 


CALL FORSWRITE_IO (user_vbl.rt.dx, format_adr.rt.r 
, err_adr.j.r [, end_adr.j.rJJ) 


to perform 
1/0 statement. 


| 
INPUT PARAMETERS: 
user _vbl.rt.dx User's string variable 
ormat_adr.rt.r format string (needs compilation) 
fertaadrs).r] optional ERR= address 
end_adr.j.r optional END= address 
IMPLICIT INPUTS: 
NONE except those used by FORS$$I0_BEG. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE except those left by FORS$IO0_BEG. 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
| 
| 


NONE except those of FORS$$I0_BEG. 
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coooo 
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FORSWRITE_10:: .MASK FORSS$IO_BEG 
MOVZWL #ISBSK_ST_TY_WIF+ - 
aFORSV_OBJ"FMT>, RO ; Statement type 


< 
JMP G*FORS$IO_BEG+2 ; branch past call mask 
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FORSSFMT COMPIL etererer 
FORSS$10 BEG eereeeer x 
FORSSREC WIFO eeeeeeee § X 
FORSSREC_WIF eeeeeeee x 
FORSSREC _WIF9 eerereer x 
fie op 4d eeereree 
FORSSUDF _wWF eeeeeeee YX 
FORSSUDF _WF9 eteeeeee 
FORSV_OBJ_FMT = 0000000 
FORSWRITE-10 00000 RG 01 
ISBSK_ST_TY_wIF : 0001 
bee meen eer ocan amen + 
! Psect synopsis ! 
www esenaonocanaaae + 
PSECT name Allocation PSECT No. Attributes 
. OS , 00000000 ( 3 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000000 ¢« 13.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


tone o mame mre nr ace nreron aman oo 

! Performance indicators ! 

Arr + 
Phase Page faults CPU Time Elapsed Time 


Initialization 33 00:00:00.08 00:00:01.72 
yonnene processing 138 88: ‘* 137 Set 03 
ass :00:01. :00:04. 
Syabol table sort 1 $0:98:00:29 98:09:00: 59 
Sd Pepe 3 00:00:00:09 40:00:00.2 
Psect synopsis output Bp BR: 0.0 00:00:00.0 
Cross-reference output 2 B83: 0:00.0 BF 8 08 «Oe 
Assembler run totals 34 00:00:02.6 00:00:10.4 


He working set Limit was 1050 pages. 

6727 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 188 non-local and 0 local symbols. 
184 source Lines were read in Pass 1, producin object records in Pass 2 

9 pages of virtual memory were used to define 2 macros. 


eS ee ee ee ee Ee eH 


Macro Library name Macros defined 

_$ SgSDUAgS : Er OReTL OBJJFORRTL.MLB;1 
$255$DUA28:(SYSLIBISTARLET.MLB; 

TOTALS (all libraries) 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
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CSEMTRECI um statistics” SMETY Point for Fortean weave rheRWAL Tg-s6P~198s 00:85:28 YAR/ynS taere goes To.man:1 P28 (2) 


MACRO/ENABLE=SUPPRESS1ION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORWRITIO/OBJ=O0BJ$:FORWRITIO MSRC$:FORWRITIO/UPDATE=(ENH$:FORWRITIO) +LI 


T CORPORATION 
PROPRIETARY 
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